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14-Sep- 24: DISK SVR STER: tt tod she PRGETCHR.BLI:1 (1) | 
$ 1 1 EM "EDTSP a thay - get next parse character’ : 
; ¢ Oe ULE EDTSPRGETCHR 9 ’ ! Get next eerste, ghar racter ; 
3 Z st gPems = 'v04-000' ' File: PRGETCHR A BLI Edit: J8S1005 : 
3 = . 
: 5 iF : BEGIN : 
: ; 0007 } PITITITITILILILI LLL LLL LLL TLL TLL itil liiiiiiiiiiiiiiiiiiiii iii | : 
: '® ® a 
; 3 0009 1 i* COPYRIGHT (c) 1978, 1980, 1982, 1984 8 ‘ : 
3 10 0010 1 !* DIGITAL EQUIPMENT EORPORATION, MAYNARD. MASSACHUSETTS. * ; 
; 13 Bot] : - ALL RIGHTS RESERVED. * : 
° . ® 2 
: ig 015 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED + ; 
Te 0014 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * . 
he 0015 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * : 
s Bote 1 !* COPIES THEREOF ‘MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * ; 
Te 0017 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * ; 
: + dt ; ;* TRANSFERRED. * : 
: . ® . 
:; @& 0020 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * , 
; $3 0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * ; 
b4 $$ O0ss : i: CORPORATION. * : 
Ps ° ® e 
3 4 0024 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * : 
: 2 8 5 : SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. « : 
° . ® o 
we $039 1 Ie x : 
3 $8 0099 : | CRSRSAANAATONERATRENSRINAARASRANAS OREN ORS AA AROTNNON ANIA EIEN GAR EARS TERNS : 
; $0 0030 1_ : 
> 0031 1 !+4+ , 3 
3 3 0036 1! FACILITY: EDT -- The DEC Standard Editor ; 
3 0033 1! 3 
3 4 0034 1 | ABSTRACT: 3 
3 5 0035 1! F 
; 3 ite} ! Get the next character to be parsed. : 
; HS 4 : ENVIRONMENT: Runs at any access mode - AST reentrant : 
i 40 0049 1 | AUTHOR: Bob Kushlis, CREATION DATE: December 12, 1978 3 
: 4g 0042 1 | MODIFIED BY: | F 
; 6 0043 1! 3 
3: (44 0044 1! 1-001 - Original. DJS 25-Feb-1981. This nodule was created by : 
3 45 0045 1: extracti ng routine GET_CHAR from module PARSER. 3 
; | 646 R206 1: 1-008 - Regularize headers. “JBS 12-Mar- 3 
s 67 0047 1 | 1-003 - change alphabetic processing. JBS "Peule 0138s 3 
: 48 0048 1 ! 1-004 = Don’ sire diacritical marks. JBS 13-Dec-19 ¢ : 
; «649 0049 1! 1-005 - Add VT220 support conditional. JBS 11-Feb-198 ; 
sR es i | 
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Sealers tend fo tecee cane 1: See 19 9320508 


MSBTTL ‘Declarations’ 
; TABLE OF CONTENTS: 


REQUIRE ‘EDTSRC: TRAROUNAM' ; 


1 
1 
1 
1 
1 
| 
497 1 FORWARD ROUTINE 
498 1 EDTSSPA_GETCH : NOVALUE; 
4 1 
500 1! 
30 | : INCLUDE FILES: 
03 1 
; 4 ! REQUIRE ‘EDTSRC:EDTREQ'; 
deo LIBRARY ‘EDTSRC:SUPPORTS'; 
0642 1! 
0643 1 ! MACROS: 
0644 1! 
0645 1! NONE 
0646 1! 
0647 1 ! EQUATED SYMBOLS: 
0648 1! 
0649 1! NONE 
0650 1! 
0651 1 ! OWN STORAGE: 
0632 1! 
0653 1! NONE 
0654 1! 
0655 1 ! EXTERNAL REFERENCES: 
0656 1! 
0657 1! In the routine 


2.¥4.0 


:CEDT 
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EDTSPRGETCHR EDTSPRGETCHR = get next parse character 1hese -1984 01:17:1 VAX-11 Bliss-32 V4.0-74 Pa 
042006 EDTSSPA_GETCH : get the nent char to parse 12=808-1 382 yee DL SKSVMGMASTERSCEDT  SRCSPRGETCHR.BLIC3 (3 
3 83 $58 ] ZSBTTL ‘EDTSSPA_GETCH = get the next char to parse’ 
3 0 299 1 GLOBAL ROUTINE EDTSSPA_GETCH ! Get the next character to parse 
; 661 1 : NOVALUE = 
3 3 662 1 
; ¢ 665 1 !+4 
3 oe : } FUNCTIONAL DESCRIPTION: 
7a 666 1! Get the next character from the input Line. If we are pointing at the 
aa 667 1! end of the record, return a ‘! orheryise get the character pointed 
: 98 668 1 | © by EDTS$A_CMD_BUF and bump EDTSS$A_CMD_BUF . The character 
; 44 6 1} s placed in the global EDTSSC_PA_CH. Lower case alphabetics are converted 
; ! : eft ! to upper case. 
: 19¢ Berg 1 ! FORMAL PARAMETERS: 
: 10 6735 1! 
: 1046 Bere 1! NONE 
; 105 675 1! 
; 196 8678 1 ! IMPLICIT INPUTS: 
s 10 0677 1! 
: 108 0678 1/ EDT$$A_CMD_BUF 
: 109 0679 1! EDTSSA_CMD_END 
: 110 0680 1! 
36111 681 1 ! IMPLICIT OUTPUTS: 
$ V6 682 1! 
3; (11 0683 1! EDTS$C_PA_CH 
P. oo 0684 1! 
. 7 0685 1 ! ROUTINE VALUE: 
s 116 0686 1! 
: 117 0687 1! NONE 
: «118 0688 1! 
3 6119 0689 1 ! SIDE EFFECTS: 
; 120 0690 1! 
3: 121 0691 1! NONE 
, } ¢ 0692 1! 
:. Ce 0693 1 !-- 
; 124 0694 1 
3 \$3 peas BEGIN 
s 139 069 EXTERNAL . 
: 128 0698 EDTSSA_CMD_BUF, ! Pointer into command buffer. 
3 ! 9 544 EDTSSA_CMD_END, ! Pointer to end of current command. 
: 131 L 0701 ZIF SUPPORT_VT220 
ie | ; ne THE 
3 : O02 ert EDTS$B_CHAR_INFO : BLOCKVECTO® (256, 1, BYTE], ! table of character information 
: 135 705 
3 HH 0706 EDTS$C_PA_CH; ! the currently being processed character 
3 13 B78 LOCAL 
3; «4139 0709 CHAR; 
; 140 0710 
; 141 my IF CHSPTR_GTR (.EDTSSA_CMD_BUF, .EDTSSA_CMD_END) 
: is ay HEN 
3; (14 71 EDT$$C_PA_CH = %C'!" 
3: 144 714 ELSE 
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SPA_GETCH = get the next char to parse . )| 


1384 9}: 7:4 VAX-11 Bliss-32 ged ls 
1984 12:24:0 DISKSVMSMASTER:CEDT.SRCIJPRGETCHR.BLI;1 (3 


EDTS 
EDTS 
> 145 715 BEGIN 
; 148 rig CHAR = CHSRCHAR_A (EDTSSA_CMD_BUF); 
; 148 L O718 4 IF ( NOT SUPPORT_VT220) 
: 14 U 071 <THEN 
; 9 U g 0 pa CHAR = .CHAR AND %X'7F°; 
.% 7 
> % 7 L 07 j %IF SUPPORT_VT220 
3 : ¢ f 2 XZ THEN 
7 § 7 $ IF .EDTS$B_CHAR_INFO C.CHAR, 0, 0, 1, 0) ' Lower case letter 
es 7 THEN 
ie teai™ 
> 160 U 0730 IF ((.CHAR GEQ %C'a') AND (.CHAR LEQ %C'z")) 
§ 18¢ U of -" THEN 
; 16 7 
> 164 0734 EDT$SC_PA_CH = .CHAR = %C'a’ + %C°A" 
> 165 0735 ELSE 
31 07 6 EDTS$C_PA_CH = .CHAR; 
s 6 07 
: 168 97 8 END; 
: 170 0740 1 END; ! of routine EDTS$PA_GETCH 


-IDENT \v04-000\ 


.EXTRN EDTS$A_CMD_BUF 
SEXTRN EDTS$$B-CHAR_INFO 
-EXTRN EDTS$C~PA_CA 


EDTSS$A_CMD_END 


-PSECT _EDTSCODE,NOWRT, SHR, PIC.2 


000C 60009 -ENTRY EDTSSPA oe y Sexe R2,R3 3; 0660 
53 000000006 00 9€ 00002 MOVAB EDT$SA_CMD_B ; 
38 000000006 00 9 0009 MOVAB EDTS$SC"PA fut : 
000000006 0 6 D 9019 CMPL  EDTSSA~CMD_BUF, EDTS$A_CMD_END : 0711 
4 1B 1 BLEQU 1$ 3 ! 
62 21 b0 6 19 MOVL #33, EDTS$S$C_PA_CH : 0713 
51 63 DO 00010 18: MOVL EDTSSA_CMD_BUF, R1 : 0716 
50 61 9A 00 MOVZBL (RI) ATHART : 
63 D6 00 INCL EDTS$A_CMD_BUF : 
05 0000000060040 00 €1 6 BBC a9 POTSsp7 CHAR_ INFOCCHAR3 , 2$ : 0736 
62 EO AO 3E 6 MOVAB 2(RO), EDTS$C~PA_C + 0734 
62 50 od0 80 23: MOVL CHAR, EDTS$C_PA_CH ; 0736 
04 000 RET : 0740 


; Routine Size: 55 bytes, Routine Base: _EDTSCODE + 0000 


-TITLE EDTSPRGETCHR EDTSPRGETCHR - get next parse char 
acter 
| 


GRISERGE™O™ —EBTEEBGETEWR, get rextoarse character... JECHERrIREE (U:IZ:IR YMG HTWBALETEHZ HS1°aRSpncerenm.ous%%% sf 


: 1} bras | 1 !<BLF/PAGE> 
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EDTSPRGETCHR EDTSPRGETCHR = get next parse character 16-Sep 4 VAX-11 Bliss-32 V4.0-7 Page 
‘ba +600 EDTSSPACGE TCH : get the nent char to parse 12-888: 1382 9}: Ve 88 DISKSVMSMASTER: or EDT SRCSPRGETCHR.BLIG?® (4) 
: 176 743° 1 END ! of module EDTSPRGETCHR 
s i 744 «4 
3 VW 745 0 ELUDOM 
H PSECT SUMMARY 
; Name Bytes Attributes 
: _EDTSCODE 55 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
3 Library Statistics : 
Ee Bn ee ee Te Symbols -co----- Pages Processing ; 
; File Total Loaded Percent Mapped Time ‘ 
; _$255$DUA28:CEDT.SRCJEDT.L32;1 377 1 0 40 00:00.2 ; 
3 ~$255$DUA28:CEDT. SRCIPSECTS.L32;1 2 1 50 7 00:00.1 : 
; 7$255$DUA28:CEDT.SRCJSUPPORTS.L $2; 1 2 1 50 5 00:00.1 ; 
; COMMAND QUALIFIERS 
; PL ESS/CHECK OEE SLD. SULT IAL GPU SALE) /UDTRACERACE AS 184, BES 1 PROE TEMA /CR SHOR IS CPREE TCHR MSRC$:PRGETCHR.BLI/UPDATE=(ENH$:PRGE 

Size: 55 code + 0 data bytes 

Run Time: 00:10.1 

Elapsed Time: we F 13.5 

Lines/CPU Min: 4425 


Lexemes/CPU-Min: 12124 
Memory Used: 58 pages 
Compi.ation Complete 
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